home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00279_Script_GESTION_ZONE_TRAVELING_MANUEL_VERS_GAUCHE < prev    next >
Text File  |  2004-12-05  |  2KB  |  49 lines
  1. global gpiste_Fond, gdemiW_Fond, gL_Home, gze_label, gNb_Traveltracks, gpisteReticule, gdeltaTraveling
  2. property pdizsprite, pdizspriteNo,pdizguyName, p_coefReticule
  3. ---------------------------------------------
  4. on getPropertyDescriptionList me
  5.   return [#p_coefReticule:[#comment: "coef de la miniature (-1 => pas de miniature:",#format:  #integer, #default: 0.1 ]]
  6. end getPropertyDescriptionList
  7. ----------------------------------
  8. on beginsprite me
  9.   pdizspriteNo = me.spriteNum
  10.   pdizsprite = sprite(pdizspriteNo)
  11.   pdizguyName = pdizsprite.member.name
  12.   if voidP(gdeltaTraveling) then gdeltaTraveling = 0
  13. end
  14. ----------------------------------- 
  15. on mouseWithin
  16.   if the pauseState = 1 then exit
  17.   temp1 = member("reviensM").number
  18.   temp2 = member("reviensMMASK").number
  19.   cursor[temp1,temp2]
  20.   if sprite(gpiste_Fond).locH < gdemiW_Fond then
  21.     repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  22.       sprite(i).locH = sprite(i).locH + 5
  23.     end repeat
  24.     gdeltaTraveling = gdeltaTraveling + 5
  25.     if p_coefReticule <> -1 then
  26.       if voidP(gpisteReticule) then
  27.         nothing
  28.       else
  29.         
  30.       end if
  31.     end if
  32.     go the frame
  33.   else
  34.     sprite(gpiste_Fond).locH = gdemiW_Fond
  35.     cursor -1
  36.     repeat with i = 1 to gNb_Traveltracks
  37.       sprite(gpiste_Fond + i).locH = gL_Home[i][1]
  38.     end repeat
  39.     updateStage
  40.     gdeltaTraveling = 0
  41.   end if
  42. end
  43. ----------------------------------- 
  44. on mouseLeave
  45.   if the pauseState = 1 then exit
  46.   cursor -1
  47. end
  48. ----------------------------------- 
  49.